﻿Imports Entidad
Imports Negocio
Imports Utilitario
Public Class frmAprobacionPedidos

    Dim servicio1 As New DocumentoClienteAprobacionNegocio

    Sub mensaje(ByVal men As String)
        MsgBox(men, MsgBoxStyle.Information, "Mensajes al Usuario")
    End Sub

    Sub listarPedidosAsignados()
        'Dim ds As DataSet = servicio1.listarPedidosXProgramacion(lblCodVehiculo.Text, lblFecha.Text, lblCodTurno.Text)
        Dim ds As DataSet = servicio1.listarPedidosAprobar()
        DgvPedidosAprobar.DataSource = ds.Tables(0)

        'total = ds.Tables(0).Rows.Count

    End Sub

    Private Sub frmAprobacionPedidos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        listarPedidosAsignados()

    End Sub


    Protected Overrides Sub Finalize()
        MyBase.Finalize()
    End Sub
End Class